home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
Demos
/
Herois
/
Codigo.Cst
/
00029_Script_Beeps aleatorios
< prev
next >
Wrap
Text File
|
1999-03-19
|
1KB
|
40 lines
property memSom
property ligado
property minTocando, maxTocando
property crono
on getBehaviorDescription
return "Faz busca automatica de palavra clicada"
end
on getPropertyDescriptionList
set p_list = [ ¼
#memSom: [ #comment: "Lista de membros com som",¼
#format: #list, ¼
#default: ["MembroSom1","MembroSom2"] ],¼
#minTocando: [ #comment: "Tempo minimo de espera entre cada beep",¼
#format: #integer, ¼
#default: 300],¼
#maxTocando: [ #comment: "Tempo maximo de espera",¼
#format: #integer, ¼
#default: 800 ]¼
]
return p_list
end
on beginSprite me
set crono = 0
end
on idleSprite me
global gMustUpdate
if crono = 0 or the timer > crono then
if crono <> 0 then
set tmp = random(count(memSom))
puppetSound 2, getAt(memSom,tmp)
updateStage
set gMustUpdate = false
end if
set crono = the timer + (random(maxTocando - minTocando)) + minTocando
end if
end